home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abm1.d64 / bits (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  31 lines
  1. 100 IFA=0THENPRINT"[147]":GOSUB190
  2. 110 POKE 53281,0:POKE 53280,0
  3. 120 IFA=0THENA=1:LOAD"READER $C700",8,1
  4. 130 SYS50944,"T.BITS","[212] [197][160][216] [212][160][160] [210][160][197] [193][160][196] [197][160][210] . [207]"
  5. 140 POKE214,24:POKE211,13:PRINT"[145]                         "
  6. 150 PRINT""TAB(9)"[159][214]IEW [212]EXT AGAIN? ([217][159]/[206][159])"
  7. 160 GETA$:IFA$<>"Y"ANDA$<>"N"THEN160
  8. 170 IFA$="N"THEN350
  9. 180 SYS51056,"[200] [197] [210] [197] [160] [201] [212][160][160] [201] [211] [160] [193] [199][160][193][160][201] [206]":GOTO160
  10. 190 POKE53280,0:POKE53281,0:IFFTHENRETURN
  11. 200 PRINT"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
  12. 210 A$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  13. 220 B$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  14. 230 C$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
  15. 240 PRINTC$;:FORI=1TO3:PRINTA$C$B$C$;:NEXT
  16. 250 PRINT"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
  17. 260 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
  18. 270 A$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
  19. 280 POKE214,12:PRINT"[145]";:FORI=1TO32:PRINTA$;:NEXT:PRINT"[155]"
  20. 290 FORI=1TO5:READA$:GOSUB300:NEXT:GOTO310
  21. 300 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
  22. 310 POKE214,24:PRINT"[145]"SPC(13)"[204] [207] [193] [196] [201] [206] [199]":RETURN
  23. 320 DATA"[212] [197] [216] [212]   [210] [197] [193] [196] [197] [210]   [214] 2","BY [202]EFF [202]ONES"
  24. 330 DATA"[208]UBLISHED ON [204][207][193][196][211][212][193][210] #77","[211]UBSCRIPTIONS 1-800-831-2694"
  25. 340 DATA"[195]OPYRIGHT ([195]) 1990 [211]OFTDISK"
  26. 350 A$="HELLO CONNECT":OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
  27. 360 IF ER<>63 THEN PRINT"[147]":END
  28. 370 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
  29. 380 PRINT"LOAD"Q$A$Q$",8"
  30. 390 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
  31.